home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / skk / make-vars.el.z / make-vars.el
Encoding:
Text File  |  1998-05-21  |  1.1 KB  |  46 lines
  1. ;;
  2. ;; make-vars.el -- make skk-vars.el
  3. ;;
  4.  
  5. (require 'autoload)
  6.  
  7. (defvar skk-foreword-file "skk-foreword.el")
  8. (defvar skk-variable-file "skk-vars.el")
  9. (defvar skk-autoload-cookie ";;;###skk-autoload")
  10.  
  11. (defvar skk-files
  12.   '("skk.el"
  13.     "skk-auto.el"
  14.     "skk-comp.el"
  15.     "skk-gadget.el"
  16.     "skk-isearch.el"
  17.     "skk-kakasi.el"
  18.     "skk-kcode.el"
  19.     "skk-menu.el"
  20.     "skk-num.el"
  21.     "skk-server.el"
  22.     "skk-tree.el"
  23.     "skk-vip.el"
  24.     "skk-viper.el" ))
  25.  
  26. (defun make-skk-vars ()
  27.   (interactive)
  28.   (let* ((generated-autoload-file skk-variable-file)
  29.      (buf (find-file-noselect generated-autoload-file))
  30.      (generate-autoload-cookie skk-autoload-cookie)
  31.      (coding-system-for-write 'junet)
  32.      (file-coding-system '*junet*) )
  33.     (set-buffer buf)
  34.     (delete-region (point-min) (point-max))
  35.     (insert-string (format "(require '%s)\n"
  36.                (file-name-sans-extension skk-foreword-file) ))
  37.     (mapcar
  38.      (function
  39.       (lambda (file)
  40.     (generate-file-autoloads file)))
  41.      skk-files)
  42.     (goto-char (point-max))
  43.     (insert-string (format "(provide '%s)\n"
  44.                (file-name-sans-extension skk-variable-file) ))
  45.     (save-buffer)))
  46.